X-Git-Url: https://permondes.de/gitweb/Analog_Engine.git/blobdiff_plain/7fbf87e4750e1393d9b6395818b70000ca99c758..6e4089e8217c971c0154c414f5fed5d0807d179e:/AESL/TP1%2003.08%20Charge%20in%20em%20field.AESL?ds=inline

diff --git a/AESL/TP1 03.08 Charge in em field.AESL b/AESL/TP1 03.08 Charge in em field.AESL
deleted file mode 100644
index e56c9bd..0000000
--- a/AESL/TP1 03.08 Charge in em field.AESL	
+++ /dev/null
@@ -1,33 +0,0 @@
-IDENTIFICATION DIVISION
-PROGRAM-ID ChargeInEMfield
-VERSION 20240116
-COMMENT A mass m with charge q>0 is located in a static electro-magnetic field [0,0,E], [0,-B,0].
-COMMENT Find the trajetory
-COMMENT Differential equation (Lorentz force): x'' = omega*z', z'' = a*omega^2 - omega*x'
-COMMENT good start settings are omega=0,92, a*omega^2=0,05
-
-ENVIRONMENT DIVISION
-ENGINE Anabrid-THAT
-TIMEBASE 1ms # corresponds to 1s
-REQUIRES INTEGRATOR 4, INVERTER 1, COEFFICIENT 3
-
-DATA DIVISION
-OUTPUT OUTPUT.X x
-OUTPUT OUTPUT.Z z
-COEFFICIENT.1 OMEGA_X # -omega for x'
-COEFFICIENT.2 A*OMEGA^2 
-COEFFICIENT.3 OMEGA_z # omega for z'
-
-PROGRAM DIVISION
-x'' -> INTEGRATOR -> -x'
--x' -> INTEGRATOR -> x
--x' -> COEFFICIENT.OMEGA_X -> -omega*x'
-+1  -> COEFFICIENT.A*OMEGA^2 -> a*omega^2
-a*omega^2, -omega*x' -> INTEGRATOR -> -z' # input is z''
--z' -> INTEGRATOR -> z
--z' -> INVERTER -> z'
-z'  -> COEFFICIENT.OMEGA_Z -> omega*z' = x''
-
-OPERATION DIVISION
-MODE REPEAT
-OP-TIME 21ms